Application.ModelessCommand("W")
DlgModelessCmd.Command = "W4.5"
DlgModelessCmd.OnOk()